home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).do / CAPTURE.INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  42 lines
  1. 99  HOME 
  2. 100 A$ = "CAPTURE IS A PROGRAM BASED ON INFORMATION IN THE APPLE II DOS MANUAL.  SEE PAGE 76 SECTION LABLED 'CAPTURING PROGRAMS IN A TEXT FILE' FOR AN INDEPTH DISCUSSION OF TECHNIQUES USED."
  3. 105  GOSUB 10000
  4. 110  PRINT :A$ = "CAPTURED PROGRAMS (SUBROUTINES) CAN BE EASILY ADDED TO PROGRAMS BEING WRITTEN. ANY PROGRAM YOU WRITE SHOULD START ABOVE ADDRESS 30, AS EXECUTION OF THE CAPTURE ITSELF DESTROYS APPLESOFT LINE NUMBERS 0 THROUGH 30."
  5. 115  GOSUB 10000
  6. 120  PRINT :A$ = "IF THE PROGRAM YOU ARE EXECING INTO MEMORY HAS THE SAME LINE NUMBERS AS THE PROGRAM ALREADY IN MEMORY, THE LINE NUMBERS THAT ARE DUPLICATED WILL BE OVER WRITTEN."
  7. 125  GOSUB 10000
  8. 127  PRINT : PRINT 
  9. 130  PRINT :A$ = "PRESS SPACE FOR INSTRUCTIONS ON THE USE OF CAPTURE."
  10. 135  GOSUB 10000
  11. 140  GET A$
  12. 150  IF A$ < >" "  THEN  GOTO 140
  13. 155  HOME 
  14. 158  PRINT 
  15. 160 A$ = "1. LOAD PROGRAM TO BE CAPTURED."
  16. 165  GOSUB 10000
  17. 168  PRINT : PRINT 
  18. 170 A$ = "2. TYPE 'EXEC CAPTURE <RETURN>'  (THE DISK DRIVE WILL RUN AND SOME STRANGE THINGS WILL HAPPEN ON THE SCREEN.  IF YOU NOW LIST 11,29 YOU WILL SEE THE PROGRAM BEING USED. YOU MAY ALSO VERIFY THAT THE REMAINDER OF YOUR PROGRAM IS"
  19. 180  GOSUB 10000
  20. 181 A$ = "UNCHANGED."
  21. 182  GOSUB 10000
  22. 189  PRINT : PRINT 
  23. 190 A$ = "3. TYPE 'RUN 11' AND ANSWER THE QUESTIONS. (STRANGE THINGS AGAIN)"
  24. 220  GOSUB 10000
  25. 225  PRINT : PRINT 
  26. 230 A$ = "4. TYPE 'RUN'  (AGAIN STRANGE THINGS WILL HAPPEN AND YOU WILL GET THE QUE 'CAPTURE COMPLETED'. NOW YOU CAN TYPE THAT SECTION OF PROGRAM FROM THE DISK AT ANY TIME BY SIMPLY TYPING 'EXEC <NAME>."
  27. 240  GOSUB 10000
  28. 9999  END 
  29. 10000 ST = 1: REM   ST IS THE START POSITION OF NEXT PRINT SEGMENT IN STRING
  30. 10005 SL = 40: REM     SL IS THE LENGTH OF THE SEGMENT OF THE STRING TO BE PRINTED   
  31. 10006  IF  LEN(A$) <41  THEN SL =  LEN(A$): GOTO 10100
  32. 10010  IF  MID$ (A$,ST +SL,1) = " "  THEN 10100
  33. 10015 SL = SL -1
  34. 10016  IF SL = 1  THEN SL = 40: GOTO 10100
  35. 10020  GOTO 10010
  36. 10100  PRINT  MID$ (A$,ST,SL);
  37. 10102  IF SL < >40  THEN  PRINT 
  38. 10105 ST = ST +SL +1
  39. 10106  IF ST > LEN(A$)  THEN  RETURN 
  40. 10110 SL = 40
  41. 10115  IF ST +SL -1 > LEN(A$)  THEN SL =  LEN(A$) -ST +1: GOTO 10100
  42. 10120  GOTO 10010